home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00196_Summary screen button.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  670 b   |  38 lines
  1. property pSpr, pRollMember, pOrigMember, pDestination
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   if gameIsOver() then
  6.     pSpr.member = member("Done_up")
  7.   end if
  8.   pOrigMember = pSpr.member
  9.   pRollMember = nextMember(pOrigMember)
  10.   setCursor(pSpr, pointingHand())
  11. end
  12.  
  13. on endSprite
  14.   setCursor(pSpr, defaultCursor())
  15. end
  16.  
  17. on mouseEnter me
  18.   pSpr.member = pRollMember
  19. end
  20.  
  21. on mouseLeave me
  22.   pSpr.member = pOrigMember
  23. end
  24.  
  25. on mouseUp
  26.   pSpr.member = pOrigMember
  27.   waitCursor()
  28.   go(pDestination)
  29. end
  30.  
  31. on mouseDown me
  32.   clickSound()
  33. end
  34.  
  35. on getPropertyDescriptionList me
  36.   return [#pDestination: [#comment: "destination", #format: #marker, #default: "Main"]]
  37. end
  38.